/**************************************************************************** **
 * Copyright (C) 2001-2020 Inhand Networks, Inc.
 **************************************************************************** **/

/* ************************************************************************** **
 *     MODULE NAME            : system
 *     LANGUAGE               : C
 *     TARGET ENVIRONMENT     : Any
 *     FILE NAME              : except.c
 *     FIRST CREATION DATE    : 2022/05/09
 * --------------------------------------------------------------------------
 *     Version                : 1.0
 *     Author                 : EExuke
 *     Last Change            : 2022/05/09
 *     FILE DESCRIPTION       : <C接口实现>_异常
** ************************************************************************** */
#include <stdlib.h>
#include <stdio.h>
#include "assert.h"
#include "except.h"

#define T Except_T

#ifdef WIN32
__declspec(thread)
#endif

Except_Frame *Except_stack = NULL;

void Except_raise(const T *e, const char *file, int line)
{
	Except_Frame *p = Except_stack;
	assert(e);
	if (p == NULL) {
		fprintf(stderr, "Uncaught exception");
		if (e->reason) {
			fprintf(stderr, " %s", e->reason);
		} else {
			fprintf(stderr, " at 0x%p", e);
		}
		if (file && line > 0) {
			fprintf(stderr, " raised at %s:%d\n", file, line);
		}
		fprintf(stderr, "aborting...\n");
		fflush(stderr);
		abort();
	}
	p->exception = e;
	p->file = file;
	p->line = line;
	Except_stack = Except_stack->prev;
	longjmp(p->env, Except_raised);
}

